home *** CD-ROM | disk | FTP | other *** search
/ GFX Sensations 1 / Graphic Sensations - Volume 1.iso / tools / amiga / editors / cpaint.lha / Others_I_Wrote.lha / wint.e < prev    next >
Encoding:
Text File  |  1993-12-11  |  195 b   |  14 lines
  1. /*prog to test windows*/
  2.  
  3. PROC main()
  4. DEF w,x,y
  5. FOR x:=0 TO 8
  6. y:=4000+x
  7. w:=OpenW(0,0,333,200,3,y,'test window',NIL,1,NIL)
  8. WriteF('Opening window sflag #\d',x)
  9. Delay(25)
  10. CloseW(w)
  11. ENDFOR
  12. ENDPROC
  13.  
  14.